home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abk.d64 / 3-d menu maker (.txt) next >
Commodore BASIC  |  2007-02-04  |  2KB  |  59 lines
  1. 0 DV=PEEK(186):REM FROM WHAT DRIVE DID I                COME FROM?   ]>UG..
  2. 1 DIM C$(11):FORI=1TO10:READC$(I):NEXT
  3. 5 REM POKE808,234
  4. 6 PRINT"[147]"
  5. 10 POKE53280,11:POKE53281,0
  6. 20 PRINT"    [158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  7. 30 PRINT"    PLEASE SELECT A PROGRAM TO LOAD[146][187]"
  8. 40 PRINT"    [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  9. 50 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  10. 60 PRINT"       1.  [212][208][213][199] BOOT!   [146][129][187]"
  11. 70 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  12. 80 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  13. 90 PRINT"       2.3-[196] [205]ENU [205]AKER![146][129][187]"
  14. 100 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  15. 110 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  16. 120 PRINT"       3.               [146][129][187]"
  17. 130 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  18. 140 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  19. 150 PRINT"       4.               [146][129][187]"
  20. 160 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  21. 170 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  22. 180 PRINT"       5.               [146][129][187]"
  23. 190 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  24. 200 PRINT"       [159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  25. 210 PRINT"       6.               [146][129][187]"
  26. 220 PRINT"       [188][129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  27. 230 PRINT"  MENU PROGRAMMED BY THE LAST FRONTIER"
  28. 300 GET X$:IF X$=""THEN 300
  29. 310 IF X$="A"THENX$="10":GOTO 340
  30. 320 IF X$="B"THENX$="11":GOTO 340
  31. 330 IFX$<"0"ORX$>"9"THEN 300
  32. 340 PRINT"[158][147]   LOADING..."
  33. 350 PRINT"LOAD"CHR$(34)"0:"C$(VAL(X$))CHR$(34)","DV",1"
  34. 360 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  35. 370 POKE631,13:POKE632,13:POKE198,2:END
  36. 500 DATA "MENU      (C)ABK","3-D MENU MAKER","DMENU*"
  37. 510 DATA"NAME","NAME","NAME","NAME","NAME","NAME","NAME"
  38. 520 DATA""NAME"
  39. 999 [143]  ------------------------------
  40. 1000 [143] WHO WAS LAST FRONTIER?
  41. 1001 [143] BESIDE FILLING IN A FEW BLANKS
  42. 1002 [143] I ADDED THE ABILITY FOR IT TO
  43. 1003 [143] KNOW WHAT DRIVE IT CAME FROM
  44. 1004 [143] AND TO BOOT THE FILES FROM
  45. 1005 [143] THAT DISK! ONLY IMPORTANT FOR
  46. 1006 [143] THOSE THAT HAVE MORE THAN ONE
  47. 1007 [143] DRIVE, BUT IF YOU ARE
  48. 1008 [143] PROGRAMMING YOU BETTER KNOW
  49. 1009 [143] HOW TO DO IT!
  50. 1010 [143] ADDRESS LOCATION '186' HOLDS
  51. 1011 [143] THE NUMBER OF THE LAST DRIVE
  52. 1012 [143] USED. AND WHEN A 'LOAD' IS
  53. 1013 [143] INITIATED IT IS CLEARED SO YOU
  54. 1014 [143] PEEK IT EARLY AND PUT IT INTO
  55. 1015 [143] A VARIABLE LIKE I DID WITH
  56. 1016 [143] THIS ONE(FIRST LINE!) YIKES I
  57. 1017 [143] ALMOST DOUBLED THE SIZE OF
  58. 1018 [143] PROGRAM !!!!!
  59.